10 REM******************************
20 REM
30 REM    DISK COMMANDS DEMO PROGS
40 REM
50 REM******************************
60 REM
100 PRINT "[147]"
110 PRINT:PRINT TAB(10);"DIRECT ACCESS DEMO"
120 PRINT:PRINT TAB(10);"[158]1.  PROGRAM TRACE"
130 PRINT:PRINT TAB(10);"2.  READ NAME"
140 PRINT:PRINT TAB(10);"3.  CHANGE NAME"
150 PRINT:PRINT TAB(10);"4.  SHOW BYTES FREE"
160 PRINT:PRINT TAB(10);"5.  READ NAME(AGAIN)
165 [153]:[153]
170 [161] I$:[139] I$[178]"" [167] 170
180 [139] I$[179]"1" [176] I$[177]"5"[167] 170
190 [145] [197](I$) [141] 500,600,700,800,900
192 [153]:[153] [163]10);"ANY KEY TO CONTINUE"
195 [161] I$:[139] I$[178]"" [167] 195
200 [137] 100
493 [143]
495 [143] READ LINKS
497 [143]
500 [159] 8,8,15:[143] OPEN THE COMMAND CHANNEL
510 [159] 4,8,4,"#":[143] OPEN DIRECT ACCESS FILE
520 [133] "TRACK AND SECTOR PLEASE";TR,SE
530 [152]8,"U1:"4;0;TR;SE:[143] READ CONTENTS OF TRACK/SECTOR INTO BUFFER
540 [161]#4,T$,S$:[143] READ FIRST TWO BYTES INTO BUFFER
550 TR[178][198](T$[170][199](0)):SE[178][198](S$[170][199](0)):[143] MAKE SURE VALUE IS INTEGER
560 [139] TR[178]0 [167] [160] 4:[160] 8:[142]:[143] END OF LINKS
570 [153] "TRACK NUMBER IS: ";TR;" SECTOR IS: ";SE
580 [137] 530:[143] GET NEXT LINK
590 [143]
593 [143]  READ DISK NAME
595 [143]
600 [159] 8,8,15:[143] OPEN THE COMMAND CHANNEL
610 [159] 4,8,4,"#":[143] OPEN DIRECT ACCESS FILE
620 [152]8,"U1:"4;0;18;0:[143] READ CONTENTS OF DESIRED TRACK/SECTOR
630 [152]8,"B-P:"4;144:[143] POINT TO WHERE YOU WANT TO READ FROM
635 [153] "DISK NAME: ";
640 [129] X[178]1 [164] 16:[143] LENGTH OF FILENAME
650 [161]#4,X$:[139] X$[178][199](160)[167] 670:[143] IF SHIFTED SPACE END
660 [153] X$;:[130]:  [143] PRINT OUT AND GET NEXT LETTER
670 [153]:[160] 4:[160] 8:[143] END
680 [142]
690 [143]
695 [143] CHANGE NAME
697 [143]
700 [159] 8,8,15:[143] OPEN THE COMMAND CHANNEL
710 [159] 4,8,4,"#":[143] OPEN DIRECT ACCESS FILE
720 [152]8,"U1:"4;0;18;0:[143] READ CONTENTS OF DESIRED TRACK/SECTOR
730 [152]8,"B-P:"4;144:[143] POINT TO WHERE YOU WANT TO READ FROM
732 [153] "OLD NAME: ";
735 [129] X[178]1 [164] 16:[161]#4,X$:[139] X$[178][199](160) [167] X[178]16:[137] 739
737 [153] X$;
739 [130] X:[153]:[153]
740 [133] "ENTER NEW NAME";X$:[139] [195](X$)[177]16 [167] 740
750 [139] [195](X$)[179]16[167] X$[178]X$[170][199](160):[137] 750:[143] PAD OUT NAME
755 [152]8,"B-P:"4;144:[143] POINT TO WHERE YOU WANT TO WRITE TO
760 [152]4,X$;:[143] CHANGE BUFFER CONTENTS
770 [152]8,"U2:"4;0;18;0:[143] WRITE BACK TO DISK
780 [152]8,"I":[160] 4:[160] 8:[142]
790 [143]
795 [143] FREE BYTES
797 [143]
800 [159] 8,8,15
810 [152]8,"M-R"[199](250)[199](2)
820 [161]#8,X$:[139] X$[178]"" [167] X$[178][199](0)
830 [152]8,"M-R"[199](252)[199](2)
840 [161]#8,Y$:[139] Y$[178]""[167] Y$[178][199](0)
850 [153] [198](X$)[170]256[172][198](Y$);" BLOCKS FREE"
860 [160] 8:[142]
890 [143]
895 [143] DISK NAME 2
897 [143]
900 [159] 8,8,15
910 [152]8,"M-R"[199](144)[199](7)[199](16)
920 [132]8,X$
930 [153] "DISK NAME: ";X$
940 [160] 8
950 [142]